home *** CD-ROM | disk | FTP | other *** search
/ The Trig Explorer / The Trig Explorer.iso / mac / Explorer / DEGREE.dxr / 00001.ls next >
Encoding:
Text File  |  1998-07-22  |  391 b   |  15 lines
  1. on startMovie
  2.   cursor(-1)
  3.   set the keyUpScript to "numsOnly"
  4.   set the keyDownScript to "printPass"
  5. end
  6.  
  7. on numsOnly
  8.   if (the key = RETURN) or (the key = ENTER) or (the keyCode = 76) then
  9.     exit
  10.   end if
  11.   if ((the key < "0") or (the key > "9")) and (the key <> "-") and (the key <> ".") and (the key <> numToChar(9)) and (the key <> numToChar(8)) then
  12.     dontPassEvent()
  13.   end if
  14. end
  15.